object frmRCSettings: TfrmRCSettings Left = 457 Top = 204 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Registry Cleaner Settings' ClientHeight = 564 ClientWidth = 484 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] OldCreateOrder = False Position = poScreenCenter Scaled = False OnCreate = FormCreate OnDestroy = FormDestroy DesignSize = ( 484 564) PixelsPerInch = 96 TextHeight = 16 object pcMain: TPageControl Left = 8 Top = 6 Width = 471 Height = 479 ActivePage = tsGeneral Anchors = [akLeft, akTop, akRight] TabOrder = 0 TabStop = False object tsGeneral: TTabSheet Caption = 'General' DesignSize = ( 463 448) object Label1: TLabel Left = 16 Top = 12 Width = 430 Height = 32 Anchors = [akLeft, akTop, akRight] AutoSize = False Caption = 'Make changes to the general settings here, choose the methods us' + 'ed to scan your registry integrity.' WordWrap = True end object GroupBox1: TGroupBox Left = 16 Top = 224 Width = 430 Height = 133 Anchors = [akLeft, akTop, akRight] Caption = 'Ignore List' TabOrder = 0 Visible = False DesignSize = ( 430 133) object Label2: TLabel Left = 12 Top = 28 Width = 405 Height = 61 Anchors = [akLeft, akTop, akRight] AutoSize = False Caption = 'Activate this option if you want to skip or protect from cleanin' + 'g single predefined registry keys or whole registry branches usi' + 'ng your list.' WordWrap = True end object cbUseIgnoreList: TCheckBox Left = 12 Top = 102 Width = 405 Height = 17 Anchors = [akLeft, akTop, akRight] Caption = 'Use Ignore List' Checked = True State = cbChecked TabOrder = 0 end end object GroupBox2: TGroupBox Left = 16 Top = 64 Width = 430 Height = 145 Anchors = [akLeft, akTop, akRight] Caption = 'Physical Drives Options' TabOrder = 1 DesignSize = ( 430 145) object Label3: TLabel Left = 12 Top = 24 Width = 405 Height = 49 Anchors = [akLeft, akTop, akRight] AutoSize = False Caption = 'Activate these options if you want to validate CD drive and remo' + 'vable media references in your registry. Untick both of them if ' + 'you want to scan hard drive references only.' WordWrap = True end object cbScanCDDrives: TCheckBox Left = 16 Top = 88 Width = 405 Height = 17 Anchors = [akLeft, akTop, akRight] Caption = 'Scan CD drive references' Checked = True State = cbChecked TabOrder = 0 end object cbScanRemovable: TCheckBox Left = 16 Top = 112 Width = 405 Height = 17 Anchors = [akLeft, akTop, akRight] Caption = 'Scan removable media references' Checked = True State = cbChecked TabOrder = 1 end end end object tsShortcuts: TTabSheet Caption = 'Shortcuts' ImageIndex = 2 DesignSize = ( 463 448) object Label8: TLabel Left = 16 Top = 12 Width = 430 Height = 32 Anchors = [akLeft, akTop, akRight] AutoSize = False Caption = 'Schedule automatic erasing on this page. You can specify when to' + ' erase, how much to erase, and a number of additional options.' WordWrap = True end object GroupBox3: TGroupBox Left = 16 Top = 64 Width = 430 Height = 257 Anchors = [akLeft, akTop, akRight] Caption = 'Shortcut Scanner Options' TabOrder = 0 object Label4: TLabel Left = 16 Top = 24 Width = 405 Height = 45 AutoSize = False Caption = 'Activate all of these options if you want to scan shortcuts in a' + 'll common folders of your computer. ' WordWrap = True end object cbScanUserMenu: TCheckBox Left = 16 Top = 80 Width = 405 Height = 17 Caption = 'Scan user menu' Checked = True State = cbChecked TabOrder = 0 end object cbScanCommonMenu: TCheckBox Left = 16 Top = 104 Width = 405 Height = 17 Caption = 'Scan common menu' Checked = True State = cbChecked TabOrder = 1 end object cbScanRecent: TCheckBox Left = 16 Top = 128 Width = 405 Height = 17 Caption = 'Scan recent folder' Checked = True State = cbChecked TabOrder = 2 end object cbScanOfficeRecent: TCheckBox Left = 16 Top = 152 Width = 405 Height = 17 Caption = 'Scan Office recent folder' Checked = True State = cbChecked TabOrder = 3 end object cbScanDesktop: TCheckBox Left = 16 Top = 176 Width = 405 Height = 17 Caption = 'Scan user desktop' Checked = True State = cbChecked TabOrder = 4 end object cbScanCommonDesktop: TCheckBox Left = 16 Top = 200 Width = 405 Height = 17 Caption = 'Scan common desktop' Checked = True State = cbChecked TabOrder = 5 end object cbScanQuickLaunch: TCheckBox Left = 16 Top = 224 Width = 405 Height = 17 Caption = 'Scan Quick Launch' TabOrder = 6 end end end object tsIgnoreList: TTabSheet Caption = 'Ignore List' ImageIndex = 3 DesignSize = ( 463 448) object Label14: TLabel Left = 16 Top = 12 Width = 430 Height = 47 Anchors = [akLeft, akTop, akRight] AutoSize = False Caption = 'This list contains registry keys that you selected to ignore and' + ' not scan. You can move keys to this list after the scan in the ' + 'scan results window.' WordWrap = True end object lvIgnoreItems: TAxListView Left = 16 Top = 72 Width = 430 Height = 329 VertScrollBar.Range = 24 TrackingScroll = True DoubleBuffered = True Sections.Font.Charset = DEFAULT_CHARSET Sections.Font.Color = clWindowText Sections.Font.Height = -12 Sections.Font.Name = 'Arial' Sections.Font.Style = [fsBold] Sections.HeaderTextOffset = 3 Sections.ItemsOffset = 8 Sections.HeaderHeight = 25 Sections.GradientHeight = 0 Sections.TextAlign = staCenter Sections.ItemHeight = 16 Sections.Collapsing = True Sections = < item Caption = 'HKEY_CURRENT_USER' Items = < item Caption = 'Some new key' Checked = False ImageIndex = 0 Tag = 0 SubItems.Strings = ( '1') end> ImageIndex = 0 HideIfEmpty = True end> RowSelect = True MultiSelect = True HideSections = True HotTrackStyle.HighlightFont.Charset = DEFAULT_CHARSET HotTrackStyle.HighlightFont.Color = clWindowText HotTrackStyle.HighlightFont.Height = -11 HotTrackStyle.HighlightFont.Name = 'MS Sans Serif' HotTrackStyle.HighlightFont.Style = [] Style = lsHeadered Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -13 Header.Font.Name = 'Arial' Header.Font.Style = [] Header.Sections = < item AutoSize = True ImageIndex = -1 Text = 'Ignored Categories' Width = 430 end> Header.Height = 22 Anchors = [akLeft, akTop, akRight, akBottom] Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False ParentShowHint = False PopupMenu = cmnIgnoreListActions TabOrder = 0 OnDblClick = lvIgnoreItemsDblClick OnMouseDown = lvIgnoreItemsMouseDown end object btnDelete: TButton Left = 328 Top = 415 Width = 117 Height = 25 Action = acDelete Anchors = [akRight, akBottom] TabOrder = 2 end object btnDetails: TButton Left = 200 Top = 415 Width = 117 Height = 25 Action = acDetails Anchors = [akRight, akBottom] TabOrder = 1 end end end object btnOK: TButton Left = 293 Top = 532 Width = 89 Height = 25 Anchors = [akRight, akBottom] Caption = 'OK' Default = True ModalResult = 1 TabOrder = 1 OnClick = btnOKClick end object btnCancel: TButton Left = 389 Top = 532 Width = 89 Height = 25 Anchors = [akRight, akBottom] Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 2 end object aclIgnoreActions: TActionList OnUpdate = aclIgnoreActionsUpdate Left = 332 Top = 36 object acDelete: TAction Category = 'Ignore List' Caption = 'Remove Selected' ShortCut = 46 OnExecute = acDeleteExecute end object acSelectAll: TAction Category = 'Ignore List' Caption = 'Select All' ShortCut = 16449 OnExecute = acSelectAllExecute end object acDeselectAll: TAction Category = 'Ignore List' Caption = 'Deselect All' OnExecute = acDeselectAllExecute end object acInvert: TAction Category = 'Ignore List' Caption = 'Invert Selection' OnExecute = acInvertExecute end object acClear: TAction Category = 'Ignore List' Caption = 'Remove All' OnExecute = acClearExecute end object acDetails: TAction Category = 'Ignore List' Caption = 'Show Details' OnExecute = acDetailsExecute end end object cmnIgnoreListActions: TPopupMenu OnPopup = cmnIgnoreListActionsPopup Left = 368 Top = 36 object miShowDetails: TMenuItem Action = acDetails end object N1: TMenuItem Caption = '-' end object miRemoveKey: TMenuItem Action = acDelete end object N2: TMenuItem Caption = '-' end object miSelectAll: TMenuItem Action = acSelectAll end object DeselectAll1: TMenuItem Action = acDeselectAll end object InvertSelection1: TMenuItem Action = acInvert end object N3: TMenuItem Caption = '-' end object ClearIgnoredList1: TMenuItem Action = acClear end end end